ocr: RECNO.PAS L IL IX implementation ($R *.DFM) uses DbiProcs, DbiTypes; procedure TForml.DataSourcelDataChange (sender: Topject; Field: TField) : var recNo: LongInt; begin if Tablel.state = asinactive then begin MessageDig('Table must be active.', mtError, [mbOK], 0); Exit; end; Tablel.UpdatedateCursorPos; dbiGetSeqNo (Tablel.Handle, recNo) : Labell.Caption := Record No: I + IntToStr (recNo); : end; 29: 42 Insert Recno
